﻿Namespace Geometry
    Public Class Plane
        '参数A
        Private _praA As New Double
        '参数B
        Private _praB As New Double
        '参数C
        Private _praC As New Double
        '参数D
        Private _praD As New Double
        '法向量(A,B,C)
        Private _normal_vector As SingleVector

        Public Property praA() As Double
            Get
                Return _praA
            End Get
            Set(value As Double)
                _praA = value
            End Set
        End Property

        Public Property praB() As Double
            Get
                Return _praB
            End Get
            Set(value As Double)
                _praB = value
            End Set
        End Property

        Public Property praC() As Double
            Get
                Return _praC
            End Get
            Set(value As Double)
                _praC = value
            End Set
        End Property

        Public Property praD() As Double
            Get
                Return _praD
            End Get
            Set(value As Double)
                _praD = value
            End Set
        End Property

        Public Property normal_vector() As SingleVector
            Get
                Return _normal_vector
            End Get
            Set(value As SingleVector)
                _normal_vector = value
            End Set
        End Property

        Public Sub New()
            normal_vector = New SingleVector()
        End Sub
    End Class
End Namespace

